main
Sub Main
	dim ws : set ws = CreateObject("WScript.Shell")
	dim varName : varName = "PADS_SHORTCUT_ROOT" 
	dim regPath : regPath ="HKEY_CURRENT_USER\Software\MyApp\PADS\" & varName
	dim varValue : varValue = ws.RegRead(regPath)
	ws.run varValue
	set ws = nothing
End Sub